home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group93a.txt / 000106_icon-group-sender _Fri Apr 9 05:14:18 1993.msg < prev    next >
Internet Message Format  |  1993-04-21  |  2KB
  1. Received: by cheltenham.cs.arizona.edu; Fri, 9 Apr 1993 05:53:46 MST
  2. Via: uk.ac.manchester.computer-science; Fri, 9 Apr 1993 13:10:31 +0100
  3. From: Steve Holden <steve@dtc.co.uk>
  4. Date: Fri, 9 Apr 93 13:05:20 BST
  5. Message-Id: <5718.9304091205@desktop.desktop.co.uk>
  6. To: icon-group@cs.arizona.edu
  7. Subject: Re: Earn guru status - help an Icon rookie
  8. Status: R
  9. Errors-To: icon-group-errors@cs.arizona.edu
  10.  
  11. Well, I wouldn't put myself down as a guru, but it seems to me that
  12. a way to recast the given procedure, which was:
  13.  
  14. > 
  15. >     procedure genchar( s, c )
  16. >         every i := ( s ? upto( c ) ) do
  17. >             write ( i )
  18. >     end
  19. >
  20.  
  21. is as follows.  Note that the right-hand operand of the matching
  22. operation is now a control structure, so the &pos keyword moves
  23. forward through the subject string.  The cset() call is not strictly
  24. necessary, as an implicit conversion would take place if a string
  25. argument were used.
  26.  
  27.     procedure main(arg)
  28.     genchar(arg[1],cset(arg[2]))
  29.     end
  30.     
  31.     procedure genchar(s,c)
  32.     s ? { every i := tab(upto(c)) do
  33.         write(move(1))
  34.     }
  35.     end
  36.  
  37. This seems to work fine, as evinced by:
  38.  
  39. scotia% ./t "scotia electronic publishing" "aeiou"
  40. o
  41. i
  42. a
  43. e
  44. e
  45. o
  46. i
  47. u
  48. i
  49. i
  50.  
  51. Does anyone have a neater solution - this was just a quick hack.
  52.  
  53. regards
  54.  Steve
  55.  
  56. PS I hope the group would agree it exists to answer questions like this
  57.    and help converts to the Icon language?
  58.  
  59.  +---------------------------------+-------------------------------------+
  60.  | Steve Holden, Technical Director| Desktop Connection Limited          |
  61.  | steve@desktop.co.uk             | Manchester Science Park             |
  62.  |---------------------------------+ Lloyd Street North                  |
  63.  | Publish and be damned. Publish  | Manchester England M15 4EN          |
  64.  | electronically and be heard.    | Tel: +44 61 227 9055 Fax: 226 4922  |
  65.  +---------------------------------+-------------------------------------+
  66.